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INTRODUCTION 


The Cameo System as available on the Univac 1107 Thin-film 
Computer will be described in this report. Neither the philosophy of 
the system nor its basic structure have been changed. It is still an 
encoder for the Mystic abstract machine with the only difference oc- 
curring in the machine language generation for the underlying computer. 
A complete listing of the Sleuth II program which does the encoding and 
a flow diagram of that program are attached to provide answers to any 
questions that may arise about error recovery, I/O operations and 
floating point adjustments. It is not necessary to be familiar with the 
Univac 1107 to use this system, but the listing and diagram are pro- 
vided for those who are interested in the de ails of the encoding system. 

This paper will be confined to the documentation of information 
necessary for the compiling and operation of Cameo programs on the 
Univac 1107. 


COMPILER INFORMATION 


Notation 


Cameo Tape — Encoder tape 

Mystic Program— Input program 

Machine Language Program— Resulting program 

Error Halts — Programmed Cameo stops resulting from erroneous 
codes, etc. 

Bootstrap— Self loading program initiated by Bootstrap button on 
console. 

Jump Switch — One of 15 switches on console which may control 
programmed transfers. 


Tape Set-up 


Channel Unit 


Cameo Tape 2 

Mystic Program 2 

Blank (for machine language program) 2 


0 

1 

Z 


2 


Channel 


Unit 


Card Set-up 


12 0 
(Card Reader) 

Console Set-up 

Jump Switch 

Disposition 

Interpretation 

15 

off 

Mystic Program on tape. 

15 

on 

Mystic Program on cards. 

14 

off 

Encode and execute Mystic program. 

14 

on 

Encode Mystic program and write 
machine language on Uniservo 2-2. 

13 

off 

Leave 2-1 in position after reading. 

13 

on 

Rewind 2-1 after reading. 

12 

off 

Halt if coding error detected. Type 
out error on console. 

12 

on 

Type out error on console. Con- 
tinue encoding. 

11 

off 

Clear core memory before encoding 
begins. 

11 

on 

Do not clear core memory before 
encoding. 

10 

off 

Execute the generated machine 
language program immediately 
after encoding. 

10 

on 

Halt for type in after encoding is 


complete. 

Console Disposition 

Clear Computer 
Master Clear 

Clear I/O channels 2 thru 15 
Bootstrap from 2-0 

Halts for Jump Switch 12 (Detailed explanation follows) 

1 . Servo Error 

2. Address Too Large 

3. Illegal Operation 

4. Too Many Q's 

5. Core Memory Exhausted 

6. EOF on Mystic Tape 

7. Interlock CC 
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The error stops listed above are printed on the console typewriter 
at the time of the error. Each type out includes the line number of the 
Mystic command found to be erroneous. 


1. Servo Error 

Line xxxxxx 10 

(a) Mystic tape is bad. 

NOTE: This stop may also occur during execution of the 

compiled program, in which case it means the data 
tape being handled is bad. 

(b) Uniservo trouble. 

Switch units and try again. If no success, call C.E, 

2. Address Too Large 
Line xxxxxx 1 0 

One of the addresses in the Mystic command being compiled 
is larger than the available core storage references. Usually 
occurs due to failure of programmer to use a Q command. 

3. Illegal Command 
Line xxxxxx x 0 

A command not in the CAMEO repertoire has been used. 

4. Too Many Q ! s 
Line xxxxxx 10 

More than 125 entries have been made in one Q table. 
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5. Core Memory Exhausted 


Line xxxxxx 10 

The amount of machine language generated exceeds 32,000 
instructions. 


6. EOF on Mystic Tape 


Line xxxxxx 10 

The transfer card or dot card is missing from the end of the 
Mystic Program tape. 


7. Interlock CC 


An interlock has occurred on channel CC. If channel is a 
uniservo, the operator must correct the situation manually and 
the program should be started from the beginning. If the channel 
is the card reader, the operator should reset the card reader and 
type in = RES and the program will restart itself. 

NOTE: This Stop is not contingent upon jump switch 12. 


PROGRAM SET UP AND OPERATING INSTRUCTIONS 


Program Set Up 


(a) Machine language program tape 
(for production run or check 
run on debugged program) 

(b) Cameo tape 

Mystic program tape (if any) 
Mystic program deck (if any) 


2 - 0 

2 - 0 
2 - 1 
12-0 

(Card Reader) 
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Data Set Up 


Mystic Reference 

TA 

TB 

TC 

TD 

TE 

TF 

TG 

TH 

TI 

PA 

CA (Punch) 
CA (Read) 


1107 Channel and Unit 

3- 0 

4- 0 

3 - 1 

4 - 1 
3-2 
3-3 
3-4 

3- 5 
2-4 

Printer 13-0 

4- 3 

Card Reader 12-0 


Console Operation 


Master clear 

Computer clear 

Clear I/O channels 2 thru 15 

Set up to bootstrap from channel 2 unit 0 

Push bootstrap button to begin operation 

Use typewriter for any interrupts or transfers at halts. (See 
Typewriter Operating Instructions) 


TYPEWRITER OPERATING INSTRUCTIONS 

The typewriter is available for program interrupt during execution 
and for obtaining dumps after normal stops or error halts. 

Jump switch 10 is used to halt a program during execution if a 
message is to be sent. Failure to send a message after interrupting 
the program forces a typeout of IDLE, and the computer is forced onto 
a loop. The program may be resumed at any time by sending the RES 
message. Jump switch 10 must be off when this is done. 
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AVAILABLE TYPEWRITER MESSAGES 


(1) = RES 

Resume operation of program at instruction waiting to be ex- 
ecuted when interrupt occurred. 

(2) = EOFbCUU 

Write an EOF on unit UU of Channel C. 

(3) = TRAbxxxxxx 8 

Each typed message must be followed by turning off jump switch 

10 and hitting the return key. Otherwise the computer sits in a 
loop. 

The TRA should be used to obtain Memory Dumps after a normal 
completion or an error halt. 

AVAILABLE TYPEOUTS 

(1) ENDxxxxx PATHFINDER READS xxxxx 

Any stop, normal or error, causes the above typeout. This 
typed message should be returned, along with any other typeouts 
and the results of the run, to the programmer. 


1 107 - 7094 REFERENCES 

For ease in transfer of run set-up from the 7094 to the 1107, the 
following references are provided: 

(1) Tapes 


Mystic Reference 

7094 

1107 

TA 

B 1 

3 - 0 

TB 

Cl 

4-0 

TC 

B2 

3 - 1 

TD 

C2 

4 - 1 

TE 

B3 

3 - 2 
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Mystic Reference 

7094 

1107 

TF 

B4 

3-3 

TG 

B5 

3-4 

TH 

B6 

3-5 

TI 

A5 

2-4 


A1 

2-0 


A2 

2 - 1 


A3 

2-2 


Switch Settings 


7094 

1107 

40 

15 

30 

14 

20 

13 

10 

12 

04 

11 


8 


Appendix I 
Flow Diagrams 
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START 


Enable all I/O 
interrupts 
Unlock all of core 














Bootstrap 

Interrupt 


Test interrupt 
location for 
status word 
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TLOD 





28 










OTA 



29 









OTL 
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TBLE referred to here is a table of values which are the Mystic 
Alphabetic codes. 

NE - number of columns to process 
KE = kind of data (A. F, N, S) 

WE - accumulator for output data word. 

RCRDE is a 20-word table stored by the calling sequence to 
this routine. 


























































































































































x = Location of data words 
y - NtMber of data words 


0^ Relative Zero 
Pick up and Store 
Xand Y 


Set up GWV fords for 
Binary Read. 

Set XBI for 
Channel 2 Input 


Pick up Channel from 
CUIA ford and Compute 
J to 1^0 Rout for 
that Channel 


J [LBC-j V-Og” 1 3 J LBC3 ] 


0-Mode 

Load 105 and 105 +1 
with Input and Function 
fords for Channel 2 


NOTE: LB3 and LB4 are identical to LB2 except 
where channel references are necessary. 



Set Up and Execute 
Back Space File 


Execute Instructions 
for Read Bin. H. D. 


Store -2 - Zero 


/ LC2B > 
( (Back Space 
V. Record) J 


Complement 
All Negative 
ns Read In 
and Store 














Interrupt 

Entrance 


Store P, Channel, 
Unit, Input Address 
fcMode 
Disable All 
Interrupts 


Normal I/O 
Interrupt 


Was 

EOF 

Encountered 


SW40 

(I/O Status 
Permits 
Continuing y 


Restore 
Interrupts, 
Log Normal 
I/O Completion 
Allow All 
Interrupts 


Requested 
Servo was 
Rewinding 


Log Error, 
Reset Buffer 
Signal for 
This Input 


Set Up Interrupt 
for Alternate 
Entrance. Repe< 
Input Operation 


Requested 
Servo is in 
Interlock 


Set Up 

Resume to 
Repeat I/O 
Operation. 
Type Message 
to Operator 


Wait for 
Operator 
to Resume 
Program 

















CAMEO FOR UNIYAC 1107 
SLEUTH II LISTING 
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CAMEO FOR UNIVAC 1107 
SLEUTH H LISTING 


%[ n , mystic hj $+1 


BOOT AACI 

AAI J 

E EQU 

BOOTB LL 

AACI 

LX 

JK 

NOP 

SI 

JMGI 

LA 

JP 

LA 

LA 

LMJ 

LA 

LA 

JK 

LA 

LA 

SA 

SA 

LA 

SA 

J 

RDIO LA 
SA 
LA 
SA 
SI 
JK 
LX 
J 

LFC 

LX 

J 

LDSYS LMJ 
LA 
LA 
LMJ 
TE 
J 

SETUP LA 
SA 
LX 
J 

WRTA3 SLJ 
LA 
SX 
SA 
LA 
SA 
SZ 
LA 
LA 
LMJ 


STALL 

0 

0170360 

1 , BBCCM- E 

11, $+4 

SYSCD+l-E, 1 
l,S-2 

19, SYSC3-E 
19 , L OS YS -E 

12, GWCM 3 , ,016 

13, GWVL3,,016 

2 , BI 01 
19 , C RD6 

20.01. . 317 
15, $+3-5 
19, CRD2 

20.0. .017 

19, CRDT 

20 , SW1 

19. 1 NT WA 

19.1 2- E 
CLEAR 

19.1 NT W3 

19. 12- E 

19.1. . 016 
19 ,C SI G 
OCINO 

13, $ + 3 

1,0P 

SWTCH 

2 * GA2RW- E 

1,0P 

SWTCH 

2 , SY SNO 

12, GW SYS , ,016 

13, GWVL3 , , 016 
2, BI 01 

19, SYSC3-E 
LDSYS+l-E 
19,1 NTW3 
19, I 2-E 
1,XSW 
SWTCH 
PAUSE 
19, ONE 

1, XSW 
19, IOOR 
19 , J BT 1 
19,130 
SYSCD-E 

12, A3GW*,,016 

13, GWSBT ,,016 

2 , B 1 03 


LOADING SYSTEM OR COMPILER 


CARD OR TAPE INPUT 
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LMJ 

LA 

LA 

LMJ 

HJ 

SYSNQ SZ 
LA 
JK 
AA 
SSL 
JK 
AA 
SSL 
JK 
AA 
SSL 
JK 
AA 
SSL 
JK 
AA 
SSL 
JK 
AA 
SA 
J 

BDOTI D1C 
DOC 
LA 
SSL 
TNE 
J 

TNE 

J 

LA 

TZ 

LA 

SA 

LA 

SA 

AA I J 

LFC 

W 

INT LA 

SA 

AA I J 

TZ 

J 

101 LIC 

LFC 
W 

103 LFC 

NUP 

loc 

w 

ELAY DIC 

DOC 
JK 
J 

AA I J 

SWOK LA 

SA 

A A I J 

J*ES 


2,SYSN0 

12, A3GW^ ,,016 

1 3 , GWS YS * ,016 
2,6103 
SETUP-E 

19 

20,040 ? t 017 
6, $+2-E 

19,20 

20,1 
5, S+2-E 

19,20 

20,1 
4, S+2-E 

19,20 

20,1 
3,$+2-E 

19,20 

20,1 
2 , S+2-E 

19,20 

20,1 

1 , $+2-E 

19,20 

19,SYSC0-E 

0,2 

2 

2 

21.201.. 015 

21,2 

21.010.. 016 
BSWOK 

21.017.. 016 
DELAY 

21.1. . 016 
I OOR 

21.4. . 016 

21 , B SPB^ , ,01 
2 1 , B J I NT 

21,0202 
$+1 

2 , GWVB S 

21, JBT1 

21,0202 
$+1 
IOOR 
BI03 

2 . 0 . 12 

2.0. 13 

2 . 0 . 12 

2,0,13 

2 

2 

9, $+2 
DELAY 
WRTA3+1 
21, JBT1 

21,0202 

0,2 

BOOT + 1 29 -$-E 


LMJ 

5, BOOT I- E 

LMJ 

5»NTCH3 

LMJ 

5, NTCH4 

RES 

7 

LMJ 

5, CRDNT 

J 

+ 0 

PRLCK 

LMJ 

7, ME AI L 

RES 

2 

AAI J 

BOOTB 

RES 

46 

LMJ 

7,0P£RR 

RES 

3 

SZ 

26 

LMJ 

7, OVER 

LMJ 

7 , DVCK 

RES 

B00T+201 -$-E 


BCCM -1,65311 

BCTF -1,127 

BKEY +3,0 

WCMP +0007777170000 

WPC2 +65535-CLEAR, C-EAR+1 

WSYS +65535,0 

WSBT +224, > 

W VLD +1 , LDTBH-E 

DTBH +052030000000 i 
3GWV + 1 , WRTBH-E 


WRTBH 

+3120 300000004 

GWVBS 

+ 1,1 

3SPBH-E 

BSPBH 

+0300030000000 

GA2RW 

1, A2RWD-E 

A2RWD 

♦0200310000002 

BJINT 

J 

JINT-E 

JBT1 

LMJ 

5 , BOOT I- E 

JC 

J 

C 

IOOR 

♦ 0 


XSW 

♦ 

0 


RES 

BOOT+222 -$-E 

SYSCO 

-1 


SCO) 

RES 

0170000 

XERF 

EQU 

02460 

FREX 

EQU 

0 

PFNOR 

♦0 



+ 1 


UOJ 

+0742000 

BSPK 

+ 3 


SCUIA 

RES 

3 

MODEI 

+ 0 


IB I T 

+ 0 , 1 

0400000 

IMTWD 

LMJ 

5,NTCH2 


LMJ 

5 , NTCH3 


LMJ 

5, NTCH4 

AC I 

AC I 

2 


AC I 

3 


AC 1 

4 

SZG 

SZ 

GUARD, ,010 


SZ 

GUARD, ,011 


SZ 

GUARD, ,012 

LFC 

LFC 

2, GWBSP 


LFC 

3, GWBSP 


LFC 

4, GWBSP 


LFC 

2, GWBSP 


LFC 

3, GWBSP 


LFC 

4, GWBSP 



BSP +0300 ‘30000000 

BSPF +J 

SKPIT +0100037777777 
SKPF + 0 

GWBSP +01, BSPF 
GWSKP +31, SKPF 


JALT 

J 

ALTI J 




JA 

J 

A 




JB 

J 

B 




CR22 

+ 0 





CUIAT 

FORM 

6,12,18 




CJIA 

CUIAT 

3, 1, IRCDA 

B 1 

= 

3,0 


CUIAT 

4,1, IRCDB 

Cl 

= 

4,0 


CUIAT 

3,2, IRCDC 

B2 

= 

3,1 


CUIAT 

4,2, IRCDD 

C2 

= 

4,1 


CUIAT 

3,4, IRCDE 

B3 

= 

3,2 


CUIAT 

3,010, IRCDF 





CUIAT 

3,020, IRCDG 





CUIAT 

3,040, IRCDH 





CUIAT 

2,020, I R CD I 





CUIAT 

2,040, IRCD 





CUIAT 

4,4, OPRI N 





CUIAT 

+ 0 

4,010, O: ARD 




IRCD 

RES 

20 





IRCDA RES 20 

IRCDB RES 20 

IRCDC RES 20 

IRCDD RES 20 

IRCDE RES 20 

IRCOF RES 20 

IRCDG RES 20 

IRCDH RES 20 

IRCOI RES 20 

1CRD RES 20 

□PRIM RES 20 

+0050505050505 

+0050505050505 


OCARD 

RES 20 

TC ARD 

RES 20 

TRCRD 

RES 20 

CSIG 

+ 01 

TSIG 

+0,0, 0,0,0, 1 

TSIGA 

+0,0 ,0,0, 0,1 

TSIGB 

+0,0,0, 0,0, 1 

TSIGC 

+0,0, 0,0,0, 1 

TSIGD 

+0 ,0,0, ), 0, 1 

TSIGE 

+0 ,0,0, 0,0,1 

TS IGF 

+ 0 , 0 , 0 , o,o, i 

TSIGG 

+0 ,0,0, 3,0, 1 

TSIGH 

+0 ,0,0, 0,0, 1 

TSIGI 

+0,0, 0,0,0, 1 

TSIGJ 

+0 ,3,0,), 0,1 

TSIGK 

+0,0, 0,0,0, 1 

TSIGL 

+0,0, 0,0,0, 1 

COUNT 

+ 0 

NTRSG 

+ 1 

FL1 

+ 1.0 

FL2 

+ 2.0 

FL 3 

+ 3.0 

LI CC 

Lie 2 , GWV4 

LIC2 

LIC 2 , G W V 1 

LIC3 

LIC 3 , GW V2 

LI C4 

LIC 4 , GW V3 


BCD CHANNEL 2 
BCD CHANNEL 3 
BCD CHANNEL 4 
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LDC2 

LOC 

2, GWVl 

• 

BCD 

LDC3 

LOC 

3.GWV2 

• 

BCD 

LOC* 

LOC 

4,GWV3 

• 

BCD 

LFCC 

LFC 

2 • GW VO 



LFC2 

LFC 

2* GWVA 

• 

BCD 

LFC3 

LFC 

3 , GWVB 

• 

BCD 

LFC* 

LFC 

4, GW VC 

• 

BCD 

JIC2 

W 




JIC3 

w 




JIC* 

w 




J0C2 

w 




J0C3 

w 




JOC* 

w 




GW VI 

+ 20,0 




GWV2 

+ 20,0 




GWV3 

+20,0 




GW VA 

+0 




GWVB 

+ 0 




GW VC 

+ 0 




GW V 

FORM 

+2,16,13 



GWV11 

GWV 

+0,1, RD 



GWV12 

GWV 

+0,1, RD1 



GW VI 3 

GWV 

+0,1, RD2 



GWVl* 

GWV 

+0,1, WO 



GWV15 

GWV 

+0,1, W01 



GWV16 

GWV 

+0,1, W02 



GWV* 

GWV 

+0.+20, I RCD 



GW VD 

GWV 

+0,+l,C*DT 




BSR +0300030000000 
RD +0520020000000 
RB +0520000000000 
BSF +0310030000000 
BSR1 +0300030000000 
RD1 +0520020000000 
RBI +0520000000000 
BSF 1 +0310030000000 
BSR2 +0300030000000 
R02 +0520020000000 
RB2 +0520000000000 
BSF2 +03 10030000000 
WEF +0120030000000 
WO +0120020000000 
WB +0120000000000 
REW +0300010000000 
WE F 1 +01200 3000000 0 
W01 +0 120020000000 
WB 1 +0120000000000 
REW1 +0300010000000 
WEF2 +0120030000000 
W02 +0120020000000 
W82 +0120000000000 
REW2 +0300010000000 


105 

RES 

6 

WRTX* 

+ 0 


TWO* 

+ 16 


TW02 

+ * 


LA3 

LA 

15, CUI A, 2 

LX2 

LX 

2,0, ,016 

LA 16 

LA 

16,0 

L100 

+ 100 


LTRA 

+ 61 


LTRF 

+ 66 


LTRJ 

+ 71 


JLTRK 

+ 72 



CHANNEL 2 
CHANNEL 3 
CHANNEL * 

CHANNEL 2 
CHANNEL 3 
CHANNEL * 
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LTRL 

+ 73 

LTRN 

+ 75 

LTRP 

+ 77 

LTRS 

+ 82 

LTRT 

+ 83 

FCC 

+0 

FN 

+ 0 

M1P11 

-1,11 

Ml P4 

-1,4 

MSK 

+0777777177777 

ZERO 

+ 0 

EBT 

-1,62543 

P1M4 

+ 1,-4 

BUFF 

-lt + 19 

TOELQ 

+0 , TFWD 

CHAR 

+0200000000000 

QDELQ 

+65534-QXTBL 

TWO 

+ 0 2 

P1M5 

+ 1,-5 

PI M2 

+ 1,-2 

P1Z 

+ 1,0 

Ml 

-1 

QCONS 

-2 , 65534-QXTBL 

BOUND 

+ 0 77777-XERF 

ABANK 

+0 100 000- X ERF 

BBANK 

+01 70000+ FR EX 

BBNKB 

+0170001+FREX 

Mi 17 

-1,17 

LTRTB 

+8300000000 

Mil 

-1,1 

Ml 2 

-1,2 

DQX' 

-1,200 

M2 

-2 

ZPC 

+0400400000000 

NOP 

NOP 

ZRO 

+ 0 

ONE 

+ 1 

XRC2 

SX 2 , XR22 

XRC 3 

SX 2 , XR23 

XRC4 

SX 2 , XR24 

ARGX 

+ 0 

XR 22 

+0 

XR 2 3 

+ 0 

XR 24 

+ 0 

MODE 

RES 3 

TFWD 

+0210421042104 

+0210421042104 

+0525252525252 

+0210421042104 

+0210400000000 

+0525252520000 

IOX 

EX 105+1 
EX 105+3 
EX 105+5 

IOX1 

EX 105 

EX 105+2 

EX 105+4 

GUARD 

+0 , 0, 0, 0,0,0 

GINST 

LA 1 8 , JG-2 

JG 

J C2 

J C3 

J C4 

LG IN 

LA 18 , L J-2 
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LJ 

J 

LC2 


J 

LC3 


J 

LC4 

BGIN 

LA 

1 8 , LB J-2 

LB J 

J 

LBC2 


J 

LBC3 


J 

LBC4 

PGIN 

LA 

18,PJ-2 

PJ 

J 

PC2 


J 

PC3 


J 

PC4 

CH266 

♦ J266000000000 

TTLP 

-It 31 


L 

*01 GOT 


NOQ 

-2,0 


ERIND 

+ ) 


PI P 1 8 

+ 

It 18 

IN TCE 

+ 

0233000000000 

CRD2 

+ 

0520020300002 

CRD4 

+ 

0520020300010 

CRD6 

♦ 

0520020303040 

CRDT 


0 

TREY 

+ 

3 

EIGHT 

+ 

8 

LMJI 

LMJ 

5 , NTCH2 


LMJ 

NOP 

7, OPERR 


LMJ 

7, OVER 


LMJ 

7, DVCK 

OVER 

SLJ 

PAUSE 


LA 

19, 0100300- XERF 


TNE 

19 , UO J 


J 

0100010- XERF 


LX 

5, ZERO 


J 

IERIT 

DVCK 

SLJ 

PAUSE 


LX 

5,4, ,017 


J 

IERIT 

MF AIL 

SLJ 

PAUSE 


LX 

5,6, ,017 


J 

IERIT 

TFAIL 

SLJ 

PAUSE 


LX 

5,8, ,017 


J 

IERIT 

BADF 

SLJ 

PAUSE 


LX 

5, 10, ,017 


J 

IERIT 

OPERR 

SLJ 

PAUSE 


LA 

19,7 


AND 

19,0177777, ,016 


TG 

20,0170300, ,016 


J 

$+3 


TG 

20,01003 00- XERF 


ANA 

20, 01003 00- XERF 


ANA 

20,1, ,016 


SLJ 

ALTER 


ANA 

20, ONE 


LA 

19, WORD 


SA 

19 , REPRT +12 


LX 

5, 12, ,017 

IERIT 

SLJ 

CRGE 


LA 

20, REPRT + 1,5 


LA 

19, REPRT ,5 


SLJ 

IOTYP 


.02 


,016 

,016 
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LA 

19,5, ,017 


LA 

20,11, ,017 


TW 

19,5 


J 

$ + 4 


SX 

7 , PFNDR 


LX 
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20,CRDN3 


SLJ 

ALTER 


LA 

19,M0RD 


LA 

20, CARD 


SLJ 

IOTYP 


LMJ 

7, STALL 


AAIJ 

ALDC 



SW 16 

SLJ 

CRGE 


LA 

20,CRDN2+1 


LA 

19* CRDN2 


J 

BADCD 

S*17 

LA 

12,0201, ,016 


LMJ 

7 , TNTRK 


AA1 J 

ALDC 

SW10 

LA 

19,CRDN3 


AA 

19,1, ,016 


SA 

19,CRDN3 

CDRAR 

LX 

5,0, ,015 


DIC 

12 


AAIJ 

0,5 

LDC 

TOP 

16, ZPC 


J 

4,4 


JP 

16, $+2 


J 

4,4 


SA 

16, COUNT 


LA 

17,0,4 


AX 

4,1, ,015 


SA 

17,L0C3A+1,,02 


SSL 

17,18 


SA 

17,LDC3A*1,,01 


AA 

17,1, ,016 


MSI 

17, TREY 


SA 

17, ANX4C ,,01 

ALOC 

TNZ 

CS IG, , 01 0 


J 

C ID 


AX 

3,1, ,016 


LIC 

12 , CRGVl 


LFC 

W 

12 , CRG V2 


sz 

CSIG 

Cl D 

SX 

3, C I D2 A, ,1 


LX 

ItPiZ 


LX 

NOP 

3 , Ml PI 9 


SZ 

RCRDE, 3 


JMGI 

3, S-2 

Cl DO 

LA 

014, ICR3 , 1 


SA 

0 14 , C I D6 


LX 

HtPlZ 

CID1 

LA 

014, CID6 


DSL 

014,036 


SA 

01 5, C I D5 


AA 

014t TBL3C, ,016 


SA 

NOP 

014, Cl D2 , , 1 

CID2 

LA 

023,0 


LMJ 

3, CID3 


TLEM 

11,5, ,016 


J 

CID1 


TLEM 

1,11,, 01 6 


J 

C I DO 

CID2A 

LX 

3,0, ,015 

ALDC2 

LIC 

12, CRGVl 


LFC 

W 

12.CRGV2 


TZ 

OCIND 


J 

ALDT3 

LDC3A 

LMJ 
♦ 0 

3, PC I D 


LA 

16, COUNT 


FAN 

16, FL 1 




TOP 

16.ZPC 




J 

0,4 




SA 

16, COUNT 




LA 

18, NUMEF 




SA 

18 , LDC3A + 1 , , 02 



ANX4C 

ANX 

4,3, , 0 IS 




J 

ALDC 



CID3 

sx 

3, Cl D4, , 01 




sz 

024 




EX 

C I D5 , 1 1 




SZ 

025 




OR 

024,RCRDE, 1 




SA 

025 , RCRO E , 1 



Cl 04 

J 




CIOS 

DSL 

023,6 




DSL 

023,12 




DSL 

023,18 




DSL 

023, 24 




DSL 

023,30 




DSL 

023, 36 



Cl 06 

<* 

0 



NTCH2 

PACI 





LA 

19, MODE 




LX 

6 , XR22 




J 

ALT 



NTCH3 

PACI 





LA 

19 , MODE* 1 




LX 

6, XR23 




J 

ALT 



NTCH4 

PACI 





LA 

19, MODE* 2 




LX 

6, XR24 



ALT 

SA 

19 , MODEI 




LA 

19, CUI A, 6 




SA 

19 , SCU I A . 

STORE 

CUI A 


SX 

6, SCUI A* 1 • 

STORE 

XR2N 


sx 

5 , SCUI A* 2 * 

STORE 

PROGRAM LOCATION 


sz 

6 



ALT I J 

LX 

6, SCUI A, ,015 




SX 

6, DIC, ,010 




sx 

6, DOC, ,010 




AX 

6, M2 




LA 

18,201,, 015 




AND 

18,1 MA S< 




SA 

19,SWST* 




SSL 

19,2 




TE 

19,010,, 016 




J 

TSTMD 



SW40 

LA 

19, INTW0,6 




SA 

19,130,5 




LA 

19, MODEI 




JZ 

19, DIC 



DOC 

DOC 

0 




J 

$ + 2 



DIC 

DIC 

0 




EX 

SZG , 6 




LX 

5, SCUI A* 2 




AACI 





A A I J 

0,5. 

RETURN 

1 TO PROGRAM 

TSTMD 

TZ 

MODEI 




J 

OUTPT 




LA 

18,201,, 015 




AND 

18 , 1 MA S< 




TNE 

19,054,, 016 
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LGEOF 

LGERR 

LGEOT 

NTRLK 

OUTPT 


WRTER 


J LGEOF 

TNE 19,044,, 016 

J LGERR 

TNE 19,050,, 016 

J LGERR 

TNE 19,074,, 016 

J NTRLK- 3 

TNE 19,070,, 016 

J SW40 

TNE 19,034,, 016 

J BADE 

TNE 19,024,, 016 

J NTRLK 

LMJ 7»MFAIL 

LX 5, SCU1 A* 1 

LA 19,1, ,017 

SA 19,TS1GA ,5,011 

J SW40 

LX 5.SCUIA+1 

LA 19,1, ,017 

SA 19, TSIGA , 5, 012 

J SW40 

LX 5.SCUIA+1 

LA 19,01, ,017 

SA 19, TSIGA, 5, 013 

J SW40 

LA 12, SCUIA , , 015 

SSC 12,30 

J SW43 

LMJ 7, TNTRK 

LX 5,6 

LA 19.JALT 

SA 19,130,6 

EX ACI , 6 

AX 5,5 

AAIJ $+1 

EX 105,5. EXECUTE I/O 

EX 105+1,5 

W 

LA 18,201,, 015 

ANO 18, IMAS< 

TNE 19,044,, 016 

J WRTER 

TNE 19,050,, 016 

J WRTER 

TNE 19,070,, 016 

J WRTER 

TNE 19,074,, 016 

J NTFLT-3 

TNE 19,060,, 016 

J LGEOT 

TNE 19,024,, 016 

J NTFLT 

TNE 19,034,, 016 

J BADF 

LMJ 7,MFAIL 

LA 19 , BSPK. ERROR REPEAT COUNTER 

AA 19,1 

TNE 19,06,016 

LMJ 7, TF AI L 

SA 19, BSPK 

LA 19, JA 

SA 19,130,5 

LA 19, SCUIA, ,02 
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A 


SK IP 


B 


NTFLT 


SrfSTR 

IMASK 

LDT 


AH 19, BSP 

SA 19 , BSPF 

AND 1 9 , SKP I T 

SA 20 , SKP F 

EX AC I , 6 

AAIJ $+1 

EX L FC , 6* BACKSPACE BLOCK 

W 

L A 18 , 201 ,,015 

AND 18, I MA S< 

TME 19,040 « , 016 

J SKIP 

TE 19,060, ,016 

LMJ 7 , MF 41 L 

LA 19, JB 

SA 19,130,6 

EX AC I , 6 

AAIJ $+1 

EX LFC+3,6. SKIP AND ERASE 

W 

LA 18,201,, 015 

AND 1 8 , I MA S< 

TNE 19,044,, 016 

J WRTER 

SZ BSPK 

TNE 19,040,, 016 

J NTFLT 

TE 19,060,, 016 

LMJ 7 , MF AI L 

LA 19,1, ,017 

SA 19, TSIGA ,,013 

LA 1 2 , S C U I A , ,015 

SSC 12,30 

LMJ 7 , TN TRK 

LX 6 » SC UI A, ,015 

ANX 6,2, ,016 

LA 19 , J AL T 

SA 19,130,6 

EX AC I , 6 

LX 5,6 

AX 5,6 

AAIJ $+1 

EX 105,5. EXECUTE REMOTE I/O 

NOP 

EX 105+1,5 

W 

+ 0 

+0 74 


SZ 

0100000- XERF 

LA 

17,0,4 

AX 

4,1, ,016 

SA 

1 7 , LDT 34 +1 , ,02 

SSL 

17, 18 

SA 

17, LDT 34+1, ,01 

AA 

17,1,, 016 

MSI 

17, TREY 

SA 

1 7 , ANX 44 , ,01 

LA 

17,1, ,017 

SX 

4 , WR TX 4 

LX 

3 , P 1Z 

LA 

18,15 

SSL 

18,036 

AA 

1 8 , LG I N 

SA 

18, $+2 
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NOP 

NQP . LA 19, LJ 



SA 

18, LTG 


NOP 


LTG 

NOP 


LC2 

SA 

17, GUARD , , 010 


sz 

MODE 


LA 

18 , L I C2 


SA 

18,105 


LA 

18, LFC2 


SA 

18,105+1 


SA 

15, GWV 1, ,1 


LA 

18,20, ,D16 


SA 

1 8, GWV 1, ,02 


SA 

15,LDT2: , , 1 


SA 

15,LDT2;+1, ,1 


SSL 

15,18 


JNZ 

16, LC2B 


SA 

15 , 8SF , , 5 


LA 

18 , GWV 11 


AA 

18, 2, ,017 


SA 

1 8, GWVA 


LA 

18, NOP 


SA 

18,105 

LI 02 

EX 

105+1 


sx 

2 , XR22 


w 


LC2A 

SA 

16, TSI GA ,2 


SA 

17 , TSI GA ,2,010 


J 

3,4 

LC2B 

JP 

16, LC2D 


LMA 

18,020 


SMA 

18,020 


SA 

15 ,8 SR , , 5 


LA 

18 , GWV 11 


ANA 

18,1, ,017 


SA 

18, GWVA 


LA 

18, NOP 


SA 

18,105 


T Z 

TS IGA, 2, 010 


J 

LC2C 


EX 

105+1 


SX 

2, XR22 


w 


LC2C 

SA 

17, GUARD,, 010 


EX 

105+1 


SX 

2 , XR22 


w 



FAN 

16 , FL1 


TEP 

16 , ZPC 


J 

LC2C 


SZ 

020 


J 

LC2A 

LC 2D 

LA 

1 8 ,GWV11 


SA 

18, GWVA 


SA 

15, RD, ,5 


LA 

18,10X1 


SA 

1 8 , XLI 0 


SA 

1 8 , XL 1 01 


LA 

18, L 102 


SA 

18, XLI 0+ 1 


SA 

18 , XLI 01+1 


LA 

18 , L 102+ 1 


SA 

18 , XL 1 0+ 2 




SA 

1 8 » XL l OL +2 


LA 

18 * J IC2 


SA 

18,XLI0f 3 


SA 

18,XLI01+3 


J 

LDT 2 

LC 3 

SA 

1 7 , GUARD , ,011 


sz 

M0DE+1 


LA 

18 * L I C 3 


SA 

18,105+2 


LA 

ca 

o 

LL 

00 


SA 

18, 105+3 


SA 

15 , GWV2, ,1 


LA 

18,20, ,016 


SA 

18 , GWV2, ,02 


SA 

15 » LOT 2C , , 1 


SA 

15, LDT2:+l t , 1 


SSL 

15,18 


JNZ 

16 , LC3B 

LCB3 

SA 

1 5 , BSF 1, ,5 


LA 

1 8 , GWV 12 


AA 

18, 2, ,017 


SA 

1 8 , GWVB 


LA 

18, NOP 


SA 

18,105+2 

LI 03 

EX 

105+3 


sx 

2 , XR23 


w 


LC 3 A 

SA 

16, TSIGA ,2 


SA 

17, TSIGA ,2,010 


J 

3, A 

LC3B 

JP 

16 , LC3D 


LM A 

18,020 


SNA 

18,020 


SA 

15,BSR1, ,5 


LA 

1 8 , GWV 12 


ANA 

18,1, ,01 7 


SA 

18, GWVB 


LA 

18, NOP 


SA 

18,105+2 


T/ 

TSIGA, 2, 010 


J 

LC3C 


EX 

105 + 3 


SX 

2 » XR 2 3 


w 


LC3C 

SA 

17, GUARD, ,011 


EX 

105 + 3 


SX 

2 , XR23 


w 



FAN 

16 , FL 1 


TEP 

16 , Z PC 


J 

LC3C 


SZ 

020 


J 

LC3A 

LC 3D 

LA 

18, GWV 1 2 


SA 

18, GWVB 


SA 

15,RD1 ,, 5 


LA 

18,10X1** 1 


SA 

18 , XL I 0 


SA 

1 8 , XL I 01 


LA 

I 8 , I QX+1 


SA 

1 8, XL I 0+ 1 


SA 

18,XLI01+1 


LA 

18 , L 103+ 1 


SA 

18,XLI0**2 
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SA 

LA 

SA 

SA 

J 

LC4 SA 

SZ 
LA 
SA 
LA 
SA 
SA 
LA 
SA 
SA 
SA 
SSL 
JNZ 

LCB4 SA 
LA 
AA 
SA 
LA 
SA 

LI 04 EX 

SX 
W 

LC4A SA 
SA 
J 

LC4B JP 

LMA 

SMA 

SA 

LA 

ANA 

SA 

LA 

SA 

TZ 

J 

EX 

SX 

w 

LC4C SA 
EX 
SX 

w 

FAN 

TEP 

J 

SZ 

J 

LC4D LA 
SA 
SA 
LA 
SA 
SA 
LA 
SA 
SA 
LA 
SA 


18 f XL 1 01 +2 
18, JIC3 
18,XLI0f 3 
18 1 XL I 01 +3 
LDT2 

17, GUARD, ,012 
M00E+2 

18 , L I C4 
18,1 05 + 4 
18, LFC4 
18,105+5 
15 »GWV 3, , 1 

18,20. ,016 
18 , GWV3, ,02 
15,LDT2:,,1 

15 , LDT2- +1 , , 1 
15,18 

16 , LC4B 

15 , BSF2, ,5 
18 , GWV 13 

18.2. . 01 7 
18 , GWVC 
18, NOP 
18,105+4 
105+5 

2 , XR24 

16, TSI GA , 2 

17 , TSI GA ,2,010 
3,4 

16 , LC4D 
18,020 
18,020 

15, BSR2, ,5 

18, GWV 13 

18.1. . 017 
18, GWVC 
18, NOP 
18,105+4 
TSIGA, 2, 010 
LC4C 

105+5 
2, XR24 

17, GUARO ,,012 
105+5 

2 , XR24 

16 , F LI 
16, Z PC 
LC4C 
020 
LC4A 

18 , GWV 13 
18, GWVC 
15, RD2 , , 5 
18,1 OX 1*2 
1 8 , XL I 0 
18 , XL I 01 
18,1 OX+2 
18 , XL 1 0+ 1 
18, XL I 01 +1 
1 8 , L 104+ 1 
18, XLI 0* 2 



SA 

18,XLI01+2 



LA 

18 » J I C A 



SA 

18 1 XL I Of 3 



SA 

18,XLI01+3 


LDT2 

TNZ 

TSIGA, 2, 010 



J 

LOT 2 A 


XL 1 01 

RES 

4 



sz 

TSIGA, 2, 010 


LDT2A 

NOP 



LDT2B 

TNZ 

TSIGA, 2, Oil 

• TEST EOF 


J 

LD23 



SZ 

TSIGA, 2, Oil 



LA 

1 8 , F L2 



SNA 

18,0 1003 O-XERF 



SA 

17, TSIGA ,2,010 


EROUT 

J 

3,4 


L02B 

TNZ 

TSIGA, 2, 012 

. ERROR TEST 


J 

LDT2C 



SZ 

TSIGA, 2,012 



LA 

1 8 ,FL 1 



SNA 

18,01000 OO-XERF 



J 

EROUT 


LDT2C 

LA 

18,$, 3 



SZ 

$,3 



SA 

1 8 , RCROE , 3 



TLEM 

3, 19, ,016 



J 

LDT2C 


XL 10 

RFS 

4 



SA 

16, COUNT 


LDT3A 

l yj 

3 , PC I 0 



+ 0 




SX 

4 , WR TX4 



LA 

18 , NUMEF 



SA 

18,LDT3A+1, ,02 



LX 

3 , P 1 Z 



LA 

16, COUNT 



FAN 

16 , F L 1 



TOP 

16 , Z PC 



J 

0,4 


ANX4A 

ANX 

4,3, ,015 



J 

LDT2A 


PRYNT 

LA 

17,1, ,016 



SA 

17 , PRS I S 


WRT 

SZ 

0100000- XERF 



LA 

17,1, ,016 



SA 

16, COUNT 



SA 

15 » WRTX5 



TNZ 

NTRSG 



J 

WRTO 



SX 

4, WR TX 4 



LX 

4 • TDELQ 



LMJ 

3 , PC I E 



+1 , TITLE 



LA 

16, COUNT 



LX 

4, BUFF 



SZ 

NTRSG 


WRT1 

NOP 




LA 

18 , RCROF ,4 



SA 

18, TRCRO ,4 



JMGI 

4 , WR T1 



LX 

4 , WR T X 4 


WRTO 

SZ 

034 



LA 

15,WRTX5 



LA 

18,0,4 
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ALPH1 

JTG 

C2 


C2I0 
C2 A 

C2B 


AX 

A, i,,ois 

SA 

18 1 WRT 2A + 1 

SSL 

18,18 

AA 

18, 1,, 016 

MSI 

18, TREY 

SA 

18 , ANX43 , ,01 

TNZ 

TSIGA, 2, 013 

J 

ALPH1 

LN A 

18 , FL3 

SA 

18,01003 OO-XERF 

SZ 

TSIGA, 2, 013 

J 

3, A 

LA 

18,15 

SSL 

18,036 

AA 

18,GINST 

SA 

18, $+2 

NOP 


NOP 


SA 

18, JTG 

NOP 


NOP 


SA 

17, GUARO , ,010 

SA 

17, MODE 

LA 

1 8 , LFC2 

SA 

18,105 

LA 

18 » L0C2 

SA 

18,105+1 

SA 

15 , GWV 1, ,1 

SA 

15, WRT3C, , 1 

SSL 

15,18 

TZ 

TSIGA, 2, 010 

J 

C2A 

SA 

15, bSR , , 5 

LA 

18, GWV 11 

ANA 

18,021 

SA 

18 , GWV A 

EX 

105 

SX 

2 , XR22 

W 


SA 

17, TSIGA, 2, 010 

JNZ 

16 , C 28 

SA 

1 5 , WEF , , 5 

LA 

18, GWV14 

ANA 

18,021 

SA 

18, GWV A 

LA 

18, NOP 

SA 

18,105+1 

EX 

105 

SX 

2 , XR22 

W 


J 

3,4 

JP 

16, C2C 

SA 

1 5 , REW , , 5 

LA 

18, GWV 14 

AA 

18,2, ,01 7 

SA 

1 8 , GWV A 

LA 

18, NOP 

SA 

18,105+1 

EX 

105 

SX 

2 , XR22 

W 


SA 

17, TSIGA, 2, 010 

J 

3,4 


LA 7» J 


TEST FOR BSR BEFORE WRITE 


COUNT 
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C2C SA 15, WO, 05 

LA 18, GWV 1 A 

SA 18, GW V A 

LA 18 , C 2 I 0 

SA 18, X 10 

LA 1 8 , I OX 

SA 18, X 10+3 

LA 18, NOP 

SA 18 , X 10 + 2 

LA 18, JOC 2 

SA 18, X I 0 + ^ 

LA 18,0210* 1 

SA 18 , X 10+1 

J WRT2 

C3 SA 17, GUARD, ,011 

SA 17 , MODE* 2 

LA 18 , L FC 3 

SA 18,105+2 

LA 18 , L OC 3 

SA 18,105+3 

SA 1 5 , GWV 2, , 1 

SA 1 5 , WR T 33 , , 1 

SSL 15,18 

TZ TS IGA ,2,010 

J C3A 

SA 15,8 SRI, ,5 

LA 18 , GWV 12 

ANA 18,021 

SA 18 , GWV8 

C3I0 EX 105+2 

SX 2, XR 23 

W 

SA 17, TSIGA ,2,010 

C3 A JNZ 16 , C 38 . COUNT 

SA 15 , WEF 1 , ,5 

LA 18 , GWV 15 

ANA 18,021 

SA 1 8 , GWV 8 

LA 18, NOP 

SA 18,105+3 

EX 105+2 

SX 2 , XR 23 

W 

J 3,4 

C36 JP 16 , C 3C 

SA 15,REW1, ,5 

LA 1 8 , GWV 15 

AA 18, 2, ,017 

SA 1 8 , GWV B 

LA 18, NOP 

SA 18,105+3 

EX 105+2 

SX 2 , XR23 

W 

SA 17, TSIGA ,2, 010 

J 3,4 

C3C SA 15,WLH,,5 

LA 1 8 , GWV 1 5 

SA 1 8 , G WV B 

LA 18 , C 3 I 0 

SA 1 8 , X 1 0 

LA 1 8 , C 31 0+ 1 

SA 18 , X 10+1 

LA 18, NOP 


97 


CA 


C4I0 


C4A 


CAB 


C4C 


WRT2 

WRT2A 


SA 

18 • X 10+2 

LA 

18, J0C3 

SA 

1 8 , X 1 0 +4 

LA 

18, IOX+1 

SA 

1 8 , X I 0+3 

J 

WRT2 

SA 

17, GUARD, ,012 

SA 

1 7 1 MODE* 2 

LA 

18 , L FC A 

SA 

18, 105 + 4 

LA 

18 , LOC A 

SA 

18,105+5 

SA 

15, GWV 3* ,1 

SA 

15 » WRT 3: , , 1 

SSL 

15,18 

TZ 

TS IG A, 2, 010 

J 

C AA 

SA 

15 , BSR2, ,5 

LA 

1 8 , GWV1 3 

ANA 

18,021 

SA 

18 , GWVC 

EX 

1 05+ A 

SX 

2 , XR2A 

w 

SA 

17, TSIGA ,2,010 

JNZ 

16, CAB 

SA 

1 5 , WEF 2, ,5 

LA 

18 , GWV 15 

ANA 

18,021 

SA 

18, GWVC 

LA 

18, NOP 

SA 

18,105+5 

EX 

I05+A 

SX 

2, XR2A 

w 

J 

3,4 

JP 

16 , C AC 

SA 

15, REW2, ,5 

LA 

18 , GWV15 

AA 

18, 2, ,017 

SA 

18, GWVC 

LA 

18, NOP 

SA 

18,105+3 

EX 

I05+A 

SX 

2.XR2A 

w 

SA 

17, TSIGA ,2,010 

J 

3, A 

SA 

15 , W02 , , 05 

LA 

18, GWV 16 

SA 

18, GWVC 

LA 

18 , C AI 0 

SA 

18 , X 1 0 

LA 

1 8 , C AI 04- 1 

SA 

1 8 , X 10 + 1 

LA 

18, NOP 

SA 

18 , X 10+2 

LA 

18,1 OX+2 

SA 

1 8 , X 10+3 

LA 

18, JOCA 

SA 

18 , X I 0+ A 

NOP 

LMJ 

3 , PC I E 

+0 
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SX 

4 , WR TX 4 



LA 

1 8 , ALF » , 1 



SA 

18.WRT2A+1, ,1 



LA 

21,181 T 



OR 

2 1 , WRT 3C 



SA 

22 » WRT 3C 



LX 

3, P1Z 



LX 

4, BUFF 


WRT3 

LA 

21, TRCR3 ,3 



OR 

21 , RCROF ,3 



SA 

22 , RCRDF , 3 



LA 

21,020,, 016 



TNZ 

RCROF, 3, 015 



SA 

21, RCROF ,3,015 



TNZ 

RCRDF, 3, 014 



SA 

2 1 , RCRD- ,3,014 



TNZ 

RCRDF, 3, 013 



SA 

21,RCRD= ,3,013 



TNZ 

RCRDF, 3, 012 



SA 

21, RCROF ,3,012 



TNZ 

RCROF, 3, Oil 



SA 

21, RCRDF ,3,011 



TNZ 

RCRDF, 3, 010 



SA 

2 1 , RCRD C ,3,010 



LA 

22,RCRD= ,3 


WRT3C 

SA 

22,$, *3 



JMG I 

4 , WRT 3 



TZ 

PRSIG 



J 

PRINT 


XIO 

RES 

5 



FAN 

16 , FL 1 



LX 

4 , WR TX 4 



TOP 

16, ZPC 



J 

WRT 4 

. JUMP, COUNT IS ZERO 


LA 

1 8 , T S I GA ,2,013 



AA 

18,034 



SA 

18,034 


ANX4B 

ANX 

4,3, ,016 



J 

WRT2 


WRT4 

SZ 

PRSIG 



TNZ 

TS I GA , 2, 013 



J 

0,4 



LA 

1 8 , F L 3 



SNA 

18,0100300-XERF 



J 

0,4 


LOCAT 

J 

$ 


R1 

EQU 

0101 



LR 

Rl.OlOOt ,016 



LX 

12 , M1P63 



NOP 




S £ 

25,TBL3C ,*12 



LX 

12,4,, 016 



AX 

12,1 , ,01 6 



J 

LOCAT 


PRINT 

LX 

8 , M IP 1 9 



NOP 




LA 

25 , OPR I N ,8,015 



SL J 

LOCAT 



SA 

12 , OPR IN ,8,015 



LA 

25 , OPR 1M ,8,014 



SLJ 

LOCAT 



SA 

12, OPRINI ,8,014 



LA 

25 , OPR I ^ ,8,013 
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SLJ 

LOCAT 


SA 

12 , OPR IV ,8,013 


LA 

25, OPRIM ,8,012 


SLJ 

LOCAT 


SA 

12, OPR I V , 8, 012 


LA 

25 , OPR IN, 8, Oil 


SLJ 

LOCAT 


SA 

12, OPR IN ,8,011 


LA 

25 , OPR I V , 8, 010 


SLJ 

LOCAT 


SA 

12, OPRIV ,8,010 


JMGI 

8, PR I NT+ 1 

PROUT 

LFC 

NOP 

1 3, GWVPA 


log 

w 

13, GWVP3 

PRLCK 

DUG 

13 


LA 

19,201,, 015 


SSL 

19,2 


TNE 

19,010,, 016 


A A I J 

X10+5 


TG 

19,017,, 016 


LMJ 

7, MF AI L 


LA 

12,0301, ,016 


LMJ 

7, TNTRK 


AAI J 

PROUT 

M1P63 

-1,63 


GW VP A 

+1,S+1 



+ J120001000001 

GWVP8 

+22 , CPRI N 

PRSIG 

+ J 


LBT 

SI 

010000-X ERF 


LA 

16,0, A 


SA 

16, MAG,, 1 


SA 

16, FCM , , 1 


SSL 

16,18 


SA 

16, LAX,, 1 


SA 

16 , ARGX, ,1 


SA 

16 , LNA , , 1 


SA 

16, SAX,, 1 


LA 

17 »CH26S 

FCH 

FA 

17,$ 


SA 

18 , LXY , , 1 


SA 

1 8 , A RGX, , 2 

MAG 

LA 

16,$ 


LA 

17,1,, 017 


LA 

18,15 


SSL 

18,036 


AA 

18 «BGI N 


SA 

18, $+2 


SSL 

NOP 

15,18 


SA 

NOP 

1 8 , LGT 

LG T 

J 

$ 

LBC2 

SA 

17, GUARD, ,010 


sz 

MODE 


LA 

18 , L 1C2 


SA 

18,105 


LA 

18 , LFC 2 


SA 

18,105+1 


LA 

18, ARGX 


SA 

18,GWV1 


JNZ 

16, LBC23 


STORc X AND Y 


X 


100 



LB 10 

LBC2A 

LBC2B 

LBC2D 


LBC3 

LBC3A 

LBC3B 


LBC4 

LBC4A 


SA 

1 5 , BSF , , 5 

LA 

18 , GWV 11 

AA 

18,2, ,016 

SA 

1 8 , GWV A 

LA 

18, NOP 

SA 

18,105 

EX 

105+1 

sx 

2 , XR22 

w 


SA 

16, TSI GA , i 

SA 

17 , T $ I GA 

J 

lf4 

JP 

16 , LBC2D 

J 

LC2B+1 

LA 

1 8 , GWV 1 1 

AA 

18,17 

SA 

1 8 , GWVA 

SA 

15, RB, ,5 

LA 

18,10X1 

SA 

18 , XB I 

LA 

1 8 , XRC2 

SA 

1 8 , XB I +1 

LA 

18, IOX 

SA 

18,XBI+2 

LA 

18, JIC2 

SA 

1 8 , XBI +3 

J 

LBT2 

SA 

17, GUARD , 

SZ 

MODE + 1 

LA 

18.LIC3 

SA 

18,105+2 

LA 

1 8 , LFC 3 

SA 

18,105+3 

LA 

18, ARGX 

SA 

18 , GWV 2 

JN l 

1 6 , L BC 3A 

J 

LC63 

JP 

16 , L BC 33 

J 

LC3B+1 

LA 

1 8 , GWV 12 

AA 

18,17 

SA 

1 8 , GWV B 

SA 

15, RBI , , 5 

LA 

18, IOXlf 1 

SA 

18, XBI 

LA 

18 , XRC 3 

SA 

18, XBI +1 

LA 

18, IOX+1 

SA 

18, XBI +2 

LA 

18, JIC3 

SA 

18 , XB I +3 

J 

LBT2 

SA 

17, GUARD , 

sz 

MODE+2 

LA 

18 , L I C4 

SA 

18,105 + ** 

LA 

1 8 , LFC4 

SA 

18,105+5 

LA 

18, ARGX 

SA 

18 ,GWV3 

JNZ 

16 , LRC4A 

J 

LCB4 

JP 

16 , LBC4B 

J 

LC4B+1 


JUMP TO BSR. 


EX 105 
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LBC4B 


LBT2 

XBI 


LBT2A 

CDMP2 

LAX 

LNA 

SAX 

PBT 


AFCM 
AM AG 


PTG 

PC2 


LA 

18, GWV 13 

AA 

18,17 

SA 

18, GWVC 

SA 

15 ,RB2 , , 5 

LA 

18, 10X14- 2 

SA 

18, XBI 

LA 

18 , XRC4 

SA 

18, XBI +1 

LA 

18,1 OX+2 

SA 

18 , XBI +2 

LA 

18, JIC4 

SA 

18 »XBI 4-3 

NOP 


RES 

4 

TNZ 

TS I GA, 2, Oil 

J 

LBT2A 

LA 

18 , FL2 

SNA 

18,01003 00- X ERF 

J 

1,4 

TNZ 

TS1GA, 2, 012 

J 

C0MP2 

LA 

18, FL1 

SNA 

18,01003 00- XERF 

LX 

3 , LX6 

NOP 


LA 

26,$, 3 

JP 

26, $+3 

LNA 

26,$ 

OR 

26, SIGN 

SA 

26, S, 3 

TLEM 

3,LXY 

J 

LAX 

J 

1,4 

SZ 

0100000- XERF 

LA 

16,0,4 

SA 

16 , AMAG, ,01 

SA 

16, AFCM, ,01 

SSL 

16,18 

SA 

16, ALAX, ,01 

SA 

16 , ARGX, ,1 

SA 

16 , ASAX, ,01 

SA 

16,8RARA, ,01 

SA 

16, BRAR3 , , 01 

LA 

17 ,CH265 

FA 

17,$ 

SA 

1 8»L XY , , 1 

SA 

18, ARGX, ,2 

SA 

18,brar: , ,01 

LA 

16,$ 

LA 

17,4-1, ,317 

LA 

18,15 

SSL 

18,036 

AA 

18 t PGIN 

SA 

18, $+2 

NOP 


NOP 


SA 

18, PTG 

SSL 

15,18 

J 

$ 

SA 

17, GUARD, ,010 

SA 

17, MODE 

LA 

18 ,L0C2 

SA 

18,105+1 

LA 

18 , LFC2 


EOF TEST 


ERR TEST 
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SA 

18,105 



LA 

18, ARGX 

. Y = OF WORDS (W) 


SA 

1 8 , G WV 1 



J HI 

16 , PC2 A 



SA 

15,WEF,, 5 



LA 

18 , GWV 1 4 



ANA 

18,17 



SA 

18 , GWV A 


PC 2W 

LA 

18, NOP 



SA 

18,105+1 



EX 

105 



SX 

2 , XR22 



W 




J 

1,4 


PC 2 A 

JP 

16, PC28 



SA 

15 » REW , , 5 



LA 

18 , GWV 1 A 



AA 

18,2, ,016 



SA 

18 , GWV A 



J 

PC2W 


PC 2B 

SA 

15, WB, ,5 



LA 

18,GWV14 



AA 

18,17 



SA 

18, GWV A 



LA 

18,10X1 



SA 

18 , X I OP 



LA 

18, XRC 2 



SA 

18 , X IQP + 1 



LA 

18 , 1 OX 



SA 

18,XI0Pf 2 



LA 

18, J0C2 



SA 

18,XI0P+3 



J 

PBT 2 


PC 3 

SA 

17, GUARD, ,011 



SA 

17 , MODE* 1 



LA 

1 8 , L FC 3 



SA 

18,105+2 



LA 

18, L OC 3 



SA 

18,105+3 



LA 

18, ARGX 



SA 

18, GWV2 



JNZ 

1 6 , P C 3 A 



SA 

15 , WEF 1 , ,5 



LA 

18, GWV 1 5 



ANA 

18,17 



SA 

18, GWV B 


PC 3W 

LA 

18, NOP 



SA 

18, 105+3 



EX 

105+2 



SX 

2, XR23 



w 




J 

1,4 


PC 3A 

JP 

16 , PC3B 



SA 

15 , REW 1, ,5 



LA 

18 , GWV 15 



AA 

18, 2, ,016 



SA 

18 , GWVB 



J 

PC 3W 


PC 3B 

SA 

15 , WB1 , , 5 



LA 

18, GWV 15 



AA 

18,17 



SA 

18, GWVB 



LA 

18,10X1+ 1 



SA 

1 8 , X I OP 
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LA 

I8.XRC3 


SA 

18, XIOP+1 


LA 

18,1 OX+1 


SA 

1 8 , X 1 0P + 2 


LA 

18, J0C3 


SA 

1 8 , X I OP** 3 


J 

PBT2 

PC* 

SA 

17, GUARD, ,012 


SA 

17 , MODE* 2 


LA 

18,LFC* 


SA 

18, 105 + 4 


LA 

18, L OCA 


SA 

18,105+5 


LA 

1 8, ARGX 


SA 

18 , GWV 3 


JNZ 

16 , PC* A 


SA 

15 , WEF2, ,5 


LA 

1 8, GWV 15 


ANA 

18,17 


SA 

18, GWVC 

PCAW 

LA 

18, NOP 


SA 

19,105+5 


EX 

I05 + * 


SX 

2 , XR2A 


W 



J 

1** 

PCAA 

JP 

16, PCAB 


SA 

15 * REW2, ,5 


LA 

1 8 » GWV 16 


AA 

18, 2, ,016 


SA 

18, GWVC 


J 

PC*W 

PC AB 

SA 

1 5 , WB2 , , 5 


LA 

18 ,GWV15 


AA 

18,17 


SA 

18, GWVC 


LA 

18,10X1*2 


SA 

18 , X IOP 


LA 

18 , XRC* 


SA 

18, X I0P+ 1 


LA 

18,1 OX+2 


SA 

1 8 , XI OP* 2 


LA 

18, JOC* 


SA 

18 , X IOP+ 3 

PBT2 

J 

$+1 

COMPL 

LX 

3, LX6 


NOP 


ALAX 

LA 

26,$, 3 


JP 

26, $+3 


LNA 

25,26 


OR 

25, SIGN 

ASAX 

SA 

26,$, 3 


TLEM 

3 , LX Y 


J 

ALAX 

XI OP 

RES 

* 


TNZ 

TSIGA, 2, ,013 


J 

BRARW 


LA 

18 ,FL3 


SNA 

18,0 100300“ XERF 

BR ARM 

LX 

3, BRARC 


NOP 


BRARA 

LX 

18,0,3 


JP 

18 , BRAR3 + 1 
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SN 

18, 17 


OR 

17, SIGN 

BRARB 

SA 

18,0,3 


JMGI 

3,BRARW+ 1 


J 

1*4 

BRARC 

-1*0 


LX Y 

+ 0,0 


LX 6 

+ 1,0 


SIGN 

+0400000000000 

WRTX5 

+ 0 


• 


PCIE 

PC IE 

J 

PC I E A 

RC RDF 

RES 

20 

PC I E A 

sx 

NOP 

3* PC I E A+ 1* , 1 


LA 

014, PCIE A+l, 


AA 

014, +1 ,, 016 


SA 

014, RAR* ,1 


LA 

014,0, 3 


LX 

3 , M 1 P 1 9 


SA 

014* SGN* 0,1 


SA 

014, NUM, 0, 1 


SA 

014, ALF* 0, 1 


SA 

014, FULL ,0, 1 


DSL 

014, 18 


SA 

NOP 

014, TCB 


sz 

RCRDF, 3 


JMGI 

3, $-2 


SZ 

CNU 


SZ 

WNO 


SZ 

FLDNO 

PCIEB 

LMJ 

11, DR 


TNZ 

N 


J 

RAR 


LA 

015, N 


SA 

015, N+l 


LA 

015, M 1 Ml 


AH 

015, N 


SA 

015, N 


LX 

11, N 


LA 

015, K 


JZ 

015, FULL 


TNE 

015, TRE^ 


J 

SKP 


TNE 

015, TWO 


J 

ALF 

SON 

LA 

014, FILL 


SZ 

023 


TP 

014 


LA 

023 , NEGS 


LMJ 

3 , C I R$ 

NUM 

LM 

014, FILL 


FA 

014, CH 26 6 


AND 

0 1 5 , MAS< 1 


SA 

016, INP 


LA 

9 1 4 , NUM< 


SA 

0 1 4 , UPD1 


J 

UPD 

NUMK 

JMGI 

11, NUM 1 


J 

NUM1 

FULL 

LM 

014, FILL 


FA 

014, CH 256 


AND 

015, M AS< 1 
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SA 

016, INP 


LA 

014, NUM< 


SA 

0 14, UP 01 

NUM1 

LA 

015, INP 


SZ 

014 


D1 

014, TBL, 11 


SA 

014, WRD 


SA 

015, INP 


LA 

015, WRD 


LX 

NOP 

1,015, ,1 


LA 

023, CTBL +90,1 


LMJ 

3,CIR$ 


J 

UPD 

ALF 

LA 

014, FILL 


FA 

014, CH25 6 


AND 

015,MAS< 1 


SA 

016, INP 


LA 

014, ALF< 


SA 

0 14 , UPD1 

ALF1 

LA 

016, INP 


SZ 

015 


D I 

015, ATBL ,11 


SA 

015, WRD 


SA 

016, INP 


LA 

022, WRD 


AA 

022 , CTBL , ,016 


SA 

022 , ALF2 , , 0 1 

ALF2 

LA 

023,0 


J 

3,C I R$ 


J 

UPO 

ALFK 

JMG I 

11, ALF 1 

UPD 

LA 

017, CNO 


AA 

017, ONE 


TG 

017, SIX 


LA 

017, ZRO 


SA 

017, CNO 


TZ 

017 


J 

UPD1 


LA 

017, WNO 


AA 

017, ONE 


SA 

017, WNO 

UPD1 

H J 

FILL 


LA 

015, SGN 


AA 

015, ONE 


SA 

015, SGN, 0, 1 


SA 

015, NUM, 0, 1 


SA 

015, ALF, 0,1 


SA 

015, FULL ,0,1 


J 

PCIEB 

SKP 

LA 

015, CNO 


SZ 

014 


AA 

015, N+l 


01 

014, SIX 


A A 

014, WNO 


SA 

014, WNO 


SA 

015, CNO 


J 

PCIEB 

RAR 

J 


OR 

SX 

1 , DR X 1 


SX 

1 1 ,DRX , , 01 


LX 

NOP 

1 , FLDNO 


JMGI 

1 , OR 1 
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DR 1 

I 


DR X 

TCB 
DR XI 
Cl R S 


Cl RX 
Cl R 1 

CTBL 


LA 

014, TCB 

JiM 

014, DRX+ 1 

LX 

1 , M 1 P 1 7 

LA 

015,3,4 

SA 

015, TEM 3 1 

LA 

015,1,4 

SA 

0 1 5 , TEMP 2 

LA 

015,2,4 

SA 

01 5 , TE M 3 3 

AX 

4, TREY 

LA 

014, TCB 

ANA 

014, ONE 

SA 

014, TCB 

LA 

014, T £M 3 1 

SZ 

015 

DSL 

014, 32 

SA 

014, N 

LA 

016 , TEM 3 2 

SZ 

017 

DSL 

016, 32 

SA 

0 1 7 , TE M 3 2 

SZ 

017 

OK 

016,015 

SA 

017, TEM 3 1 

LA 

014, TEM 3 3 

SZ 

015 

DSL 

014, 34 

SA 

014, K 

SA 

015, TEM 3 3 

sx 

1 > FLDNO 

LX 

1 , DR X 1 

J 


SZ 

N 

J 

DRX 

+ J 


+ 0 


sx 

11 ,CIRXf 1 

sx 

3 , C I RX , , 01 

LX 

1 1 , CNO 

SZ 

024 

EX 

C IR1 , 1 1 

LX 

11, WNO 

SZ 

025 

OR 

024, RCRO F , 11 

SA 

025 , RCRO F 1 1 1 

LX 

lltCIRXf 1 

J 


NOP 


OSL 

023,6 

DSL 

023, 12 

DSL 

023, 18 

DSL 

023,24 

DSL 

023,30 

DSL 

023,36 

+ 

0 

+ 

0 

+ 

0 

+ 

0 

+ 

0 

+ 

0 

+ 

0 

♦ 

0 

+ 

0 

■f 

0 
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+ 

+ 

+ 

+ 

+ 

+ 


+ 


+ )73 


+ 074 
+ 060 
+ 

+ 

+ 

+ 

+ 


+ 

+ 


+ 

+ 


+ 

+ 021 
+ 

+ 

+ 


♦ 


+ 

+ 0 

+ 0 33 
+ 0 34 
+ 0 
+ 

+ 

+ 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


+ 

+ 

+ 

+ 

+ 

+ 

+ 


+ j61 
+ 062 
♦ 0 63 
+ 064 
+ 065 
+ 066 
+ J67 


+ 070 
+ 071 
+ 

+ 

+ 

+ 


0 

0 

0 

0 

0 

0 

0 

0 


0 

0 

0 

0 

0 

0 

0 

053 

054 
040 

0 

0 

0 

0 

0 


0 

0 

0 

0 

0 

0 

0 

013 

014 
0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


0 

041 

042 

043 
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+ 044 

+ 045 

+ 046 

+ 047 

+ 050 

+ 051 

+ 0 

+ 0 

+ 0 22 
+ ;2 3 
+ u24 
+ 025 
+ 0 26 
+ 027 
+ ;30 
+ ;31 

+ 10 

+ 1 

+ 2 

+ 3 

+ 4 

+ 5 

+ 6 

+ 7 

+ 8 

+ 9 

. CONSTANTS 

SI X + 6 

NEGS + 040 

TBL +1 

+ 10 
+ 100 
+ 1000 
+ 1000 J 
+ 1000)0 
+1000000 
+ 1000)000 
+1000 0000 
+1000000000 
ATBL +1 

+ 100 
+10000 
+1000000 
+100000000 


• 



ERASABLES 

FLDNO 

+ 

"i 


TEMPI 




TEMP2 


;> 


TEMP3 

+ 

0 


K 


0 


N 


RES 

2 

C'JO 


j 


WNO 

+ 

0 


HP 


o 


WRD 


0 


SHIFT 


+ 

0 

TEMP 


RES 

2 

Ml M 1 


-1,-1 


Ml PZ 


-1.0 


MA SKI 


+ 

0000777777777 

Ml P 1 9 


+ 

-1,19 

Ml P 17 


“1.17 




RES 

$/2*2 + 2- $ 

QXTBL 


+ J 




END 

MYSTIC 
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